COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE TAP   
C00006 ENDMK
C⊗;
	TITLE TAP   
	SUBTTL PGM TO INPUT RHYTHMS FROM TTY KEYBOARD  
	ENTRY TAP
TAP:   	JUMP 0
	MOVE 2,[XWD -1,[XWD 17000,1]]
	TTYSET 2,
	MOVEM 1,FOOM#	;PUT RESPONSIBLE TERMINAL # INTO FOOM
	HRRZ 16,16
	MOVE @16
	HRRM B1
	MOVE @16
	HRRM B3
;;;	AOS 16
;;;	MOVE @16
;;;	HRRM B2
	SPCWAR 636367
	SETZM TOFF#
	SETZM OFFC1#
	SETZM OFFC2#
	SETZM ONC1#
	SETZM ONC2#
;;	SETZM CLOCK#
	SETZM LCLK#
;;	SETZM FT#
	MOVE	1,[400001,,START]
	SPCWGO	1,
	SKIPE TOFF
	JRST .+4
	MOVEI 1,1
	SLEEP 1,
	JRST .-4
;;	MOVE I
;;B2:	MOVEM 0
	SPCWAR 636367
	JRA 16,1(16)

;;START:	AOS CLOCK  	;ADD TO TICK COUNTER
START:	MOVEI 10,0
	JRST 2,.+1(10)
	MOVE 1,FOOM
	MOVEM 1,FOO#
	TTREAD FOO	;READ A KEY
	MOVE 1,FOO
	TRNN 1,200	;"TOP" KEY
	JRST DONE
	TRNN 1,1000	;META KEY
	JRST B1ON
	AOS OFFC1
	SETZM ONC1
CK2:	TRNN 1,400	;CONTROL KEY
	JRST B2ON
	AOS OFFC2
	SETZM ONC2
	SKIPE ONC1
	JRST TEST2
	DISMIS
DONE:	SETOM TOFF
;;	JRST TG2
	TIMER 0,	;GET TIME OF DAY IN TICKS
	SUB 0,TICK#	;LESS THE LAST TIME WE LOOKED
	FSC 233
	FMPR TICL	;CHANGE IT TO SECONDS
	MOVE 1,I
B3:	MOVEM 0(1)
	DISMIS

B1ON:	SETZM OFFC1
	AOS ONC1
	MOVEI 2	;ADDR IS # OF TICS SW MUST BE CLOSED
	CAME ONC1
	JRST CK2
;;	SKIPE FT
	JRST EVENT
;;	SETOM FT
;;	SETZM LCLK
;;	DISMIS
B2ON:	SETZM OFFC2
	AOS ONC2
	MOVEI 2	;ADDR IS # OF TICS SW MUST BE CLOSED
	CAME ONC2
	JRST TEST2
;;	SKIPE FT
	JRST EVENT
;;	SETOM FT
;;	SETZM LCLK
;;	DISMIS
TEST2:	MOVEI =200
	CAMG ONC1
	JRST TG1
	CAMLE ONC2
	DISMIS
TG1:	SETZM TOFF
;;	SETZM FT
	SETZM I
	DISMIS
EVENT:	SKIPE LCLK
	JRST TG2
	SETZM I#
	SETZM 1
	SETOM LCLK
	JRST TG3
;;TG2:	MOVE CLOCK
;;	SUB OCLOCK
TG2:	TIMER 0,
	MOVE 2,0	;GET TIME OF DAY IN TICKS
	SUB 0,TICK#	;LESS THE LAST TIME WE LOOKED
	FSC 233
	FMPR TICL	;CHANGE IT TO SECONDS
	MOVE 1,I
B1:	MOVEM 0(1)
	AOS I
;;TG3:	MOVE CLOCK
;;	MOVEM OCLOCK#
	SKIPA		;SKIPE THE FIRST TIME THROUGH
TG3:	TIMER 2,	;LOOK AT CLOCK AGAIN
	MOVEM 2,TICK	;REMEMBER IT
	CAIGE 1,=200	;THE CURRENT LIMIT ON NUMBER OF NOTES.
	DISMIS
	SETOM TOFF
	DISMIS
TICL:	0.01666667 
	END